Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue59/Arch/Extended Sample/UnitFormEntityCustomer.dfm

Text File | 2000-05-22 | 6.4 KB | 276 lines

inherited FormEntityCustomer: TFormEntityCustomer
  Left = 917
  Top = 212
  Caption = 'FormEntityCustomer'
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl [2]
    Left = 0
    Top = 29
    Width = 632
    Height = 405
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Customer'
      object Label1: TLabel
        Left = 116
        Top = 40
        Width = 35
        Height = 13
        Caption = 'CustNo'
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 116
        Top = 84
        Width = 44
        Height = 13
        Caption = 'Company'
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 116
        Top = 128
        Width = 28
        Height = 13
        Caption = 'Addr1'
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 116
        Top = 172
        Width = 28
        Height = 13
        Caption = 'Addr2'
        FocusControl = DBEdit4
      end
      object Label5: TLabel
        Left = 116
        Top = 216
        Width = 17
        Height = 13
        Caption = 'City'
        FocusControl = DBEdit5
      end
      object Label6: TLabel
        Left = 116
        Top = 260
        Width = 25
        Height = 13
        Caption = 'State'
        FocusControl = DBEdit6
      end
      object Label7: TLabel
        Left = 116
        Top = 304
        Width = 15
        Height = 13
        Caption = 'Zip'
        FocusControl = DBEdit7
      end
      object Label8: TLabel
        Left = 368
        Top = 40
        Width = 36
        Height = 13
        Caption = 'Country'
        FocusControl = DBEdit8
      end
      object Label9: TLabel
        Left = 368
        Top = 84
        Width = 31
        Height = 13
        Caption = 'Phone'
        FocusControl = DBEdit9
      end
      object Label10: TLabel
        Left = 368
        Top = 128
        Width = 20
        Height = 13
        Caption = 'FAX'
        FocusControl = DBEdit10
      end
      object Label11: TLabel
        Left = 368
        Top = 172
        Width = 41
        Height = 13
        Caption = 'TaxRate'
        FocusControl = DBEdit11
      end
      object Label12: TLabel
        Left = 368
        Top = 216
        Width = 37
        Height = 13
        Caption = 'Contact'
        FocusControl = DBEdit12
      end
      object Label13: TLabel
        Left = 368
        Top = 260
        Width = 78
        Height = 13
        Caption = 'LastInvoiceDate'
        FocusControl = DBEdit13
      end
      object DBEdit1: TDBEdit
        Left = 116
        Top = 56
        Width = 64
        Height = 21
        Hint = 'The customer number'
        DataField = 'CustNo'
        DataSource = DataSourceCustomer
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 116
        Top = 100
        Width = 184
        Height = 21
        Hint = 'The company name'
        DataField = 'Company'
        DataSource = DataSourceCustomer
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 116
        Top = 144
        Width = 184
        Height = 21
        Hint = 'Address line one'
        DataField = 'Addr1'
        DataSource = DataSourceCustomer
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 116
        Top = 188
        Width = 184
        Height = 21
        Hint = 'Address line two'
        DataField = 'Addr2'
        DataSource = DataSourceCustomer
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 116
        Top = 232
        Width = 94
        Height = 21
        Hint = 'City'
        DataField = 'City'
        DataSource = DataSourceCustomer
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 116
        Top = 276
        Width = 124
        Height = 21
        Hint = 'State'
        DataField = 'State'
        DataSource = DataSourceCustomer
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 116
        Top = 320
        Width = 64
        Height = 21
        Hint = 'Zip code'
        DataField = 'Zip'
        DataSource = DataSourceCustomer
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 368
        Top = 56
        Width = 124
        Height = 21
        Hint = 'Country'
        DataField = 'Country'
        DataSource = DataSourceCustomer
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 368
        Top = 100
        Width = 94
        Height = 21
        Hint = 'Telephone number'
        DataField = 'Phone'
        DataSource = DataSourceCustomer
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 368
        Top = 144
        Width = 94
        Height = 21
        Hint = 'FAX number'
        DataField = 'FAX'
        DataSource = DataSourceCustomer
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 368
        Top = 188
        Width = 64
        Height = 21
        Hint = 'Tax rate'
        DataField = 'TaxRate'
        DataSource = DataSourceCustomer
        TabOrder = 10
      end
      object DBEdit12: TDBEdit
        Left = 368
        Top = 232
        Width = 124
        Height = 21
        Hint = 'Contact name'
        DataField = 'Contact'
        DataSource = DataSourceCustomer
        TabOrder = 11
      end
      object DBEdit13: TDBEdit
        Left = 368
        Top = 276
        Width = 112
        Height = 21
        Hint = 'Date of last invoice'
        DataField = 'LastInvoiceDate'
        DataSource = DataSourceCustomer
        TabOrder = 12
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Orders'
      ImageIndex = 1
      inline FrameResultSetOrders: TFrameResultSetOrders
        Width = 624
        Height = 377
        Align = alClient
        inherited DBGridFrameResultSetBase: TDBGrid
          Width = 624
          Height = 377
          Hint = 'Orders for this customer'
        end
      end
    end
  end
  inherited ActionListEntity: TActionList
    Left = 44
    Top = 96
  end
  object DataSourceCustomer: TDataSource
    Left = 300
    Top = 336
  end
end